#lang scribble/doc

@(require scribble/manual)


@title{Pierced sphere}

@defproc[(pierced-sphere
          (r (and/c real? positive?))
          (e (and/c real? positive?))
          (rc (and/c real? positive?))
          (n (and/c integer? positive?)))
         any/c]{
Creates a spherical surface of radius @racket[r] and thickness @racket[e]
pierced by a number @racket[n] of cones that changes with the sine of the
spherical angle, where each cone has radius @racket[rc] and height just over
@racket[r].
}